home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / p4 / p4-1_2b.lha / p4-1.2b / lib_f / temp.f < prev   
Text File  |  1993-03-18  |  285b  |  18 lines
  1.             program temp
  2.  
  3.       integer   i
  4.       character*80 tempchar
  5.  
  6.       i = iargc()
  7.       print *,'iargc=',i
  8.  
  9.       i = 0
  10.       call getarg(i,tempchar)
  11.       print *,'tempchar0=',tempchar
  12.  
  13.       i = 1
  14.       call getarg(i,tempchar)
  15.       print *,'tempchar1=',tempchar
  16.  
  17.       end
  18.